home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
mfix0712.zip
/
M-PC0712.FIX
< prev
next >
Wrap
Text File
|
1992-07-12
|
4KB
|
91 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against E:\RBBS\TEMP\RBBS-PC.BAS to produce E:\RBBS\CHAT\RBBS-PC.BAS
* E:\RBBS\TEMP\RBBS-PC.BAS: Date 7-7-1992 Size 157790 bytes
* ------------[ Created 07-12-1992 19:56:27 ]------------
* REPLACING old line(s) by new
4380 WasA1$ = "Msg #" + _
STR$(LowMsgNumber) + _
"-" + _
MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
" (H)lp,S)ince,L)ast" + _
LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
* ------[ first line different ]------
CALL SkipLine (-QuickScanMsgs) ' KG062301
IF ZGlobalRead THEN _
CALL QuickTPut1 ("Reading globally")
IF AddressedToUser OR ToRequested OR FromRequested THEN _
ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
LEFT$("/",-AddressedToUser) + _
LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
CALL QuickTPut1 ("Include only msgs "+ZWasY$+" you. Read what msgs (? for help)") _
ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
WasA1$ = WasA1$ + "arked" _
ELSE WasA1$ = WasA1$ + "ine"
IF SearchString$ = "" THEN _
WasA1$ = WasA1$ + _
", text" _
ELSE CALL QuickTPut1 ("Include only msgs with text " + SearchString$ + ". Read what msgs (? for help)")
* REPLACING old line(s) by new
4418 ZWasA = INSTR("FfTt",ZUserIn$(ZAnsIndex))
IF ZWasA > 0 THEN _
ToRequested = (ZWasA > 2) : _
FromRequested = (ZWasA < 3) : _
GOTO 4370
IF CurMsg = 0 THEN _
IF SearchHeader$ <> "" THEN _
GOTO 4370 _
ELSE SearchString$ = ZUserIn$(ZAnsIndex) : _
SearchCt = 0 : _
CALL AllCaps (SearchString$) : _
CALL Remove (SearchString$,CHR$(34) + CHR$(39)) : _
SearchHeader$ = SearchString$ : _
SubInHeader$ = SearchHeader$ : _
GOTO 4370
* ------[ first line different ]------
CALL SkipLine (-ReadMsgs) ' KG062301
* REPLACING old line(s) by new
* ------[ first line different ]------
4631 IF NOT Forward AND NOT Reverse THEN _ ' KG062301
GOTO 4370 ' KG062301
CALL CheckCarrier ' KG062301
IF ZSubParm THEN _
RETURN 10595
IF ZRet THEN _
RETURN
* REPLACING old line(s) by new
4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
CALL SkipLine (1) 'SM091905
ZPageStatus$ = ""
ZSysopGreeting$ = "SysOp in! " + ZFirstName$ + ", this is " + _ ' DD062801/ANSICHAT
ZSysopFirstName$ + ", go ahead!" ' DD062801/ANSICHAT
* ------[ first line different ]------
* REPLACING old line(s) by new
* ------[ first line different ]------
4770 IF ZANSITest = ZTrue OR ZWasGR > 1 THEN ' DD062801/ANSICHAT
CALL ANSIChat ' DD062801/ANSICHAT
ELSE ' DD062801/ANSICHAT
CALL SkipLine (1) ' DD062801/ANSICHAT
CALL QuickTPut1 (ZSysopGreeting$) ' DD062801/ANSICHAT
CALL SysopChat ' DD062801/ANSICHAT
END IF ' DD062801/ANSICHAT
IF ZSubParm < 0 THEN _
GOTO 202
RETURN
'
' **** S - COMMAND FROM UTILITY MENU (STATISTICS) *** 'Pe 09/02/91
'
* REPLACING old line(s) by new
10560 GOSUB 41000 'Pe 02/04/90
IF ZExpertUser THEN ZLogoff$ = "L"
* ------[ first line different ]------
* REPLACING old line(s) by new
10986 ZWasZ$ = ZFileName$
CALL DoorExit (NOT InMenu)
Call QuickTput1 ("Welcome back " + ZFirstName$ + " ...") 'Pe 12/23/91
* ------[ first line different ]------
Return 1232 'Pe 07/12/92
'
' * 5 - COMMAND FROM SYSOP MENU (USER FILE MAINTENANCE)
'